Imports Microsoft.VisualBasic

Public Class Item
    Private _codItem As String
    Private _descripcion As String
    Private _cantidad As Integer
    Private _precioUnitario As Integer
    Private _nombre As String
    Private _iva As Integer
    Private _neto As Integer
    Private _fkProveedor As String

    Public Sub New(ByVal codItem As String, ByVal descripcion As String, ByVal cantidad As Integer, _
                    ByVal precioUnitario As Integer, ByVal nombre As String, ByVal iva As Integer, ByVal neto As Integer)

        Me._codItem = codItem
        Me._descripcion = descripcion
        Me._cantidad = cantidad
        Me._precioUnitario = precioUnitario
        Me._nombre = nombre
        Me._iva = iva
        Me._neto = neto
    End Sub

    Public Property Neto() As Integer
        Get
            Return _neto
        End Get

        Set(ByVal value As Integer)
            _neto = value
        End Set
    End Property

    Public Property Iva() As Integer
        Get
            Return _iva
        End Get

        Set(ByVal value As Integer)
            _iva = value
        End Set
    End Property

    Public Property CodItem() As String
        Get
            Return _codItem
        End Get

        Set(ByVal value As String)
            _codItem = value
        End Set
    End Property

    Public Property Descripcion() As String
        Get
            Return _descripcion
        End Get

        Set(ByVal value As String)
            _descripcion = value
        End Set
    End Property

    Public Property Cantidad() As Integer
        Get
            Return _cantidad
        End Get

        Set(ByVal value As Integer)
            _cantidad = value
        End Set
    End Property

    Public Property PrecioUnitario() As Integer
        Get
            Return _precioUnitario
        End Get

        Set(ByVal value As Integer)
            _precioUnitario = value
        End Set
    End Property

    Public Property Nombre() As String
        Get
            Return _nombre
        End Get

        Set(ByVal value As String)
            _nombre = value
        End Set
    End Property

    Public Property FKPROVEEDOR() As String
        Get
            Return _fkProveedor
        End Get

        Set(ByVal value As String)
            _fkProveedor = value
        End Set
    End Property
End Class
